home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt105a].d64 / gEOSnUM (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  39 lines
  1. 11 POKE53280,0:POKE53281,15:POKE646,11:POKE53272,23:DIMK(10),L(10),D$(10),E(10),M(10):FORI=1TO10:READD$(I),K(I),L(I),M(I),E(I):NEXT:GOSUB52
  2. 14 PRINT"[147]        [199][197][207][211] [211]ERIAL [206]UMBER [197]DITOR [146]":FORI=1TO10:PRINT"  ";I;" ";D$(I):NEXT:PRINT"[211]ELECT PROGRAM TO EDIT:
  3. 18 [161]C$:[139]C$[178]""[167]18
  4. 19 C[178][197](C$):[139]C[179]1[176]C[177]10[167]18
  5. 20 D[178]0:[141]93:[141]42:[153]"";D$(C);" (null)ERIAL#=";G;",";H:[153]"ATNLTER SERIAL NUMBER (Y/N)?
  6. 23 GETF$:IFF$<>"Y"ANDF$<>"N"THEN23
  7. 24 IFF$="Y"THEN29
  8. 25 PRINT" [209][146]UIT, OR [206][146]EXT PROGRAM?
  9. 26 [161]F$:[139]F$[179][177]"Q"[175]F$[179][177]"N"[167]26
  10. 27 [139]F$[178]"Q"[167]43
  11. 28 [137]14
  12. 29 [133]"ONVALNTER FIRST BYTE OF NEW (null)(null): ";G:[133]"ONVALNTER SECOND BYTE OF NEW (null)(null):     CMDCMDCMDCMD";H:[153]"ONRIGHT$S";G;"CMD ,";H;"CMD THE CORRECT NUMBER? (Y/N)
  13. 32 GETF$:IFF$<>"Y"ANDF$<>"N"THEN32
  14. 33 IFF$="Y"THEN37
  15. 34 PRINT"[145][145][145]":FORI=1TO4:PRINT"                                       ":NEXT:PRINT"[145][145][145]":GOTO29
  16. 37 D=1:GOSUB42:GOSUB93:D=0:GOSUB93:GOSUB42:PRINT"[145]                                       [145]":PRINT"[211]ERIAL NUMBER IS NOW:";G;H:GOTO25
  17. 42 G=(GORE(C))-(GANDE(C)):H=(HORE(C))-(HANDE(C)):RETURN
  18. 43 PRINT"[147]             [210]EBOOT [199][197][207][211] ? [146]":PRINT"              [217][146]ES, OR [206][146]O?
  19. 45 [161]F$:[139]F$[178]""[167]45
  20. 46 [139]F$[178]"N"[167][160]15:[160]8:[158]64738
  21. 47 [153]"LOAD     (null)(null)ATNLENVAL CHR$VAL(null)(null) PEEK(null)(null)(null)STR$RIGHT$(null)(null) RIGHT$(null) STR$(null)RIGHT$(null)VAL#0 WAIT":[153]"             LEFT$IT ATNNY (null)EY.
  22. 49 GETF$:IFF$=""THEN49
  23. 50 LOAD"GEOS",8,1:CLOSE15:CLOSE8:STOP:END
  24. 52 PRINT"[147]        [199][197][207][211] [211]ERIAL [206]UMBER [197]DITOR [146]":PRINT"             [201][206][212][210][207][196][213][195][212][201][207][206] [146]":PRINT"   [212]HIS  PROGRAM ALLOWS  YOU TO  MATCH":PRINT" THE SERIAL NUMBER OF ALL OF YOUR [199][197][207][211]":PRINT" ADDON PROGRAMS WITH YOUR [199][197][207][211] [203][197][210][206][193][204].":PRINT" [215]HEN THESE  ADDON PROGRAMS  ARE FIRST
  25. 58 [153]" 'INSTALLED', THE NUMBER OF THE (null)VAL(null)(null)ATN(null)":[153]" IS 'KEYED' TO THE PROGRAM.  ASCROM THAT":[153]" POINT,  THESE  PROGRAMS  CAN  ONLY BE":[153]" USED  WITH THAT (null)VAL(null)(null)ATN(null).  (null)HIS PROGRAM":[153]" ALTERS THE SERIAL NUMBER OF THE ADDON":[153]" PROGRAM TO MATCH THE (null)VAL(null)(null)ATN(null)'S NUMBER.
  26. 64 PRINT"   [212]HIS PROGRAM  SHOULD NOT BE USED TO":PRINT" VIOLATE  THE  COPYRIGHTS  OF [194]ERKELEY":PRINT" [211]OFTWORKS. [215]E ALL HAVE AN INTEREST IN":PRINT" THEIR  CONTINUED  SUCCESS.  [199][197][207][211] IS A ":PRINT" GREAT  PRODUCT  AND  WE  WANT  IT  TO 
  27. 69 [153]" CONTINUE TO GROW. (null)IRACY HURTS US ALL.":[153]"              LEFT$IT ATNNY (null)EY WAIT
  28. 71 GETF$:IFF$=""THEN71
  29. 72 PRINT"[147]             [201][206][211][212][210][213][195][212][201][207][206][211] [146]":PRINT"   [212]HIS PROGRAM ONLY ALTERS THE SERIAL":PRINT" NUMBER OF THE PROGRAM ON THE ORIGINAL":PRINT" DISK,  OR A  BIT-COPY.  [212]O MATCH  THE":PRINT" NUMBER,   YOU  MUST  FIRST KNOW  THE":PRINT" NUMBER  OF YOUR  [199][197][207][211],  SO PLACE YOUR
  30. 78 [153]" CHR$VAL(null)(null) IN THE DRIVE, AND SELECT 1 OR 2.":[153]" (null)OTE THE SERIAL NUMBER  OF YOUR CHR$VAL(null)(null),":[153]" THEN PLACE  YOUR ADD-ON  PROGRAM DISK":[153]" IN THE DRIVE,  AND SELECT THE PROGRAM":[153]" THAT YOU WISH TO MATCH, AND ENTER THE":[153]" SERIAL NUMBER OF YOUR CHR$VAL(null)(null) (null)VAL(null)(null)ATN(null).
  31. 84 PRINT"   [212]HIS  PROGRAM  DOES  NOT  CHECK FOR ":PRINT" ERRORS, SUCH AS HAVING THE WRONG DISK":PRINT" IN THE DRIVE,  OR ENTERING AN ILLEGAL":PRINT" SERIAL NUMBER,  SO [194][197] [214][197][210][217] [195][193][210][197][198][213][204] TO":PRINT" DO EVERYTHING RIGHT,  OR YOU MAY RUIN":PRINT" A DISK.
  32. 90 [153]"               LEFT$IT ATNNY (null)EY WAIT
  33. 91 GETF$:IFF$=""THEN91
  34. 92 RETURN
  35. 93 OPEN15,8,15," ":OPEN8,8,8,"#":PRINT#15,"U1";8;0;K(C);L(C):PRINT#15,"B-P:"8;M(C):IFD=1THENPRINT#8,CHR$(G);CHR$(H):GOTO98
  36. 97 GET#8,A$,B$:G=ASC(A$):H=ASC(B$)
  37. 98 PRINT#15,"U2";8;0;K(C);L(C):CLOSE8:CLOSE15:RETURN:DATA"[199][197][207][211] V1.2",2,17,71,0,"[199][197][207][211] V1.3",20,5,197,0,"[199][197][207][215]RITE2.0",26,17,66,88,"[199]RAPHICS [199]RABBER",20,4,72,0,"[212]EXT [199]RABBER",2,11,209,0,"[199][197][207][205]ERGE V1.0",28,11,149,0,"[199][197][207][205]ERGE V1.3",3,0,117,0,"[199][197][207][198]ILE",12,11,189,222
  38. 109 DATA"[216][216][216][196]EX",0,0,0,0,"[216][216][216][195]ALC",0,0,0,0
  39.